inherited ClientsTopicFrame: TClientsTopicFrame
  Width = 225
  Height = 469
  ExplicitWidth = 225
  ExplicitHeight = 469
  object Grid: TDBGrid
    AlignWithMargins = True
    Left = 0
    Top = 29
    Width = 225
    Height = 357
    Margins.Left = 0
    Margins.Top = 5
    Margins.Right = 0
    Margins.Bottom = 0
    Align = alClient
    DataSource = DataSource
    Options = [dgColumnResize, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -13
    TitleFont.Name = 'Tahoma'
    TitleFont.Style = []
    OnCellClick = GridCellClick
    OnColEnter = GridColEnter
    Columns = <
      item
        Expanded = False
        FieldName = 'NIMI'
        Title.Caption = 'Nimi'
        Width = 300
        Visible = True
      end>
  end
  object BottomPanel: TPanel
    Left = 0
    Top = 386
    Width = 225
    Height = 83
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 1
    object Label3: TLabel
      Left = 0
      Top = 28
      Width = 106
      Height = 16
      Cursor = crHandPoint
      Caption = 'Klientide aruannne'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clNavy
      Font.Height = -13
      Font.Name = 'Tahoma'
      Font.Style = [fsUnderline]
      ParentFont = False
    end
    object ClientsPageLabel: TLabel
      Left = 0
      Top = 5
      Width = 114
      Height = 16
      Cursor = crHandPoint
      Caption = 'Klientide koondtabel'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clNavy
      Font.Height = -13
      Font.Name = 'Tahoma'
      Font.Style = [fsUnderline]
      ParentFont = False
      OnClick = ClientsPageLabelClick
    end
    object Label2: TLabel
      Left = 0
      Top = 51
      Width = 120
      Height = 16
      Cursor = crHandPoint
      Caption = 'Registreeri uus klient'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clNavy
      Font.Height = -13
      Font.Name = 'Tahoma'
      Font.Style = [fsUnderline]
      ParentFont = False
      OnClick = Label2Click
    end
  end
  object FilterCombo: TComboBox
    Left = 0
    Top = 0
    Width = 225
    Height = 24
    Align = alTop
    Style = csDropDownList
    ItemHeight = 16
    TabOrder = 2
    OnChange = FilterComboChange
  end
  object Query: TSQLDataSet
    SchemaName = 'sysdba'
    GetMetadata = False
    CommandText = 
      'select'#13#10'id,'#13#10'nimi'#13#10'from kliendid'#13#10'where coalesce(grupp, '#39'<ilma g' +
      'rupita>'#39') like :client_group'#13#10'order by nimi'
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftString
        Name = 'client_group'
        ParamType = ptInput
      end>
    SQLConnection = ProgramModule.Connection
    Left = 176
    Top = 152
  end
  object DataSource: TDataSource
    DataSet = Ds
    Left = 80
    Top = 152
  end
  object Ds: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftString
        Name = 'client_group'
        ParamType = ptInput
      end>
    ProviderName = 'Provider'
    AfterScroll = DsAfterScroll
    Left = 112
    Top = 152
    object DsID: TIntegerField
      FieldName = 'ID'
      Required = True
    end
    object DsNIMI: TStringField
      FieldName = 'NIMI'
      Required = True
      Size = 200
    end
  end
  object Provider: TDataSetProvider
    DataSet = Query
    Left = 144
    Top = 152
  end
end
